﻿Public Class user
    Private hiddenPseudonym As String
    Private hiddenPassword As String
    Private hiddenFirstname As String
    Private hiddenLastname As String
    Private hiddenParticipantID As String

    Public Sub New()
        hiddenPseudonym = ""
        hiddenPassword = ""
        hiddenFirstname = ""
        hiddenLastname = ""
        hiddenParticipantID = ""
    End Sub

    Public Property participantID() As String
        Get
            Return hiddenParticipantID
        End Get
        Set(value As String)
            hiddenParticipantID = value
        End Set
    End Property

    Public Property pseudonym() As String
        Get
            Return hiddenPseudonym
        End Get
        Set(ByVal value As String)
            hiddenPseudonym = value
        End Set
    End Property

    Public Property password() As String
        Get
            Return hiddenPassword
        End Get
        Set(ByVal value As String)
            hiddenPassword = value
        End Set
    End Property

    Public Property firstname() As String
        Get
            Return hiddenFirstname
        End Get
        Set(ByVal value As String)
            hiddenFirstname = value
        End Set
    End Property

    Public Property lastname() As String
        Get
            Return hiddenLastname
        End Get
        Set(ByVal value As String)
            hiddenLastname = value
        End Set
    End Property
End Class

